home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1013_CStdPopupPane < prev    next >
Encoding:
Text File  |  1992-04-08  |  457 b   |  20 lines
  1. %case uses%
  2. %case instance%
  3.     %if classname = CStdPopupPane%
  4.         %itemname%:%    %CAMPopupPane;
  5.     %else%
  6.         %itemname%:%    %%classname%;
  7.     %endif%
  8. %case create%
  9.     
  10.     New (%itemname%);
  11.     %itemname%.IViewRes ('%paneType%', %paneID%, %enclosure%, supervisor);
  12. %case UpdateMenus%
  13.     gBartender.EnableMenu (%menuID%);    {%itemname%}
  14. %case ProviderChanged%
  15.     %if menuname = Sound%
  16.         if aProvider = %itemname% then begin
  17.             %itemname%.PlaySound (IntegerPtr (info)^);
  18.         end;
  19.     %endif%
  20.